Amiga Format CD 41/Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso/-seriously_amiga-/-commercial-/pagestream_filter/install-filter

Text File | 1999-04-24 | 4KB | 186 lines

; $VER: Universal V1.5 (17.04.99)
; Copyright (C)1997-99 Wolf Faust

(complete 0)
(delopts "oknodelete" "force" "askuser")
(set @default-dest "")


(set #wichproggy
(cat "\n\nPlease select the printing program you own"
))
(set #proggyhelp
(cat "This disk can install the PageStream filter for "
    "CanonStudio (registered) or Studio users.\n"
    "Please select the program you own now.\n\n"
))
(set #proggystudio
(cat "Studio"
))
(set #proggycanon
(cat "CanonStudio"
))
(set #nopgs
(cat    "Sorry, I can't locate the \"Pagestream3:SoftLogik/Filters\" or \"Pagestream4:SoftLogik/Filters\" drawer containing the PageStream "
    "graphics import filters. So I can't install the PageStream filter. Please check your "
    "PageStream installation and try again later."
))
;--------------
(set #abortunpack
(cat "\nError occured while running the installation decompression program. "
    "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
))
;-------
(set #badfiltversion
(cat    "I did not install the wanted filter for "
    "%s. A newer filter V%ld.%ld is already installed. "
))
;-------
(set #nopgsfilt
(cat    "I can't find the drawer %sSoftLogik/Filters for installing "
    "the Universal filter to."
))
;-------
(set #waitmsg
(cat "\n\n\n\nWorking. Please wait..."
))

(complete 10)

;*** German
(if (= @language "deutsch")
(
    (set #wichproggy
    (cat "\n\nBitte wählen Sie das Programm, das Sie besitzen.\n"
    ))
    (set #proggyhelp
    (cat "Dieses Installationsprogramm kann sowohl für CanonStudio als auch Studio\n"
        "Besitzer den Filter installieren. Bitte wählen Sie, welches Programm "
        "Sie besitzen.\n\n"
    ))
    (set #proggystudio
    (cat "Studio"
    ))
    (set #proggycanon
    (cat "CanonStudio"
    ))
    ;--------------
    (set #abortunpack
    (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
        "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
    ))
    ;--------------
    (set #nopgs
    (cat    "Leider kann ich Ihre \"Pagestream3:SoftLogik/Filters\" oder \"Pagestream4:SoftLogik/Filters\" Schublade mit den PageStream "
        "Grafikimport-Filtern nicht finden. Ich kann daher auch keinen neuen Filter installieren. "
        "Bitte prüfen Sie Ihre PageStream Installation."
    ))
    ;-------
    (set #badfiltversion
    (cat    "Der gewünschte Studio Universal Grafikimport-Filter für das Programm '%s' wurde nicht installiert, "
        "da bereits ein neuerer Filter mit der Version %ld.%ld installiert ist.\n\n"
    ))
    ;-------
    (set #nopgsfilt
    (cat    "Die Schublade %sSoftLogik/Filters kann "
        "für die Installation auf Ihrem System nicht gefunden werden."
    ))
    ;-------
    (set #waitmsg
    (cat "\n\n\n\nIch arbeite! Bitte warten..."
    ))
))

(complete 40)

(set pgsdrawer "Pagestream3:")
(set guessdrawer (getassign "PageStream3" "a"))
(if (= guessdrawer "")
(
    (set guessdrawer (getassign "PageStream4" "a"))
    (set pgsdrawer "Pagestream4:")
))
(if (<> guessdrawer "")
(
    (if (= (exists (cat pgsdrawer "SoftLogik/Filters")) 2)
    (
        (set ver 0)
        (set rev 0)
        (if (= (exists (cat pgsdrawer "SoftLogik/Filters/Universal.gfilter")) 1)
        (
            (set vernum (getversion (cat pgsdrawer "SoftLogik/Filters/Universal.gfilter")))
            (set ver (/ vernum 65536))
            (set rev (- vernum (* ver 65536) ) )
        ))
        (complete 70)
        (if (< ver 2)
        (
            (if (NOT (AND (= ver 1) (> rev 5) ))
            (
                (set prgm "Studio")
                (if (= (exists (cat "lx")) 1)
                (
                    (if (= (exists (cat "lxc")) 1)
                    (
                        (if (askbool (prompt (#wichproggy))
                            (choices #proggystudio #proggycanon)
                            (help (#proggyhelp))
                            (default 1))
                        (
                            (working #waitmsg)
                            (copyfiles (source "lx")
                            (dest "t:")
                            (nogauge)
                            )
                        )
                        (
                            (working #waitmsg)
                            (copyfiles (source "lxc")
                            (dest "t:")
                            (newname "lx")
                            (nogauge)
                            )
                            (set prgm "CanonStudio")
                        ))
                    )
                    (
                        (copyfiles (source "lx")
                        (dest "t:")
                        (nogauge)
                        )
                    ))
                )
                (
                    (set prgm "CanonStudio")
                    (copyfiles (source "lxc")
                    (dest "t:")
                    (newname "lx")
                    (nogauge)
                    )
                ))
                (working #waitmsg)
                (set exerr (run (cat "T:lx x PageStream3/Universal.pkd " pgsdrawer "SoftLogik/Filters")))
                (if (> exerr 0)
                (
                    (abort (#abortunpack "PageStream3/Universal.pkd"))
                ))
                (working #waitmsg)
            )
            (
                (abort (#badfiltversion "PageStream 3.x/4.x" ver rev))
            ))
        )
        (
            (abort (#badfiltversion "PageStream 3.x/4.x" ver rev))
        ))
    )
    (
        (abort #nopgsfilt)
    ))
)
(
    (abort #nopgs)
))

(complete 100)